.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: BS 
> 

> This module contains all the routines that arQ used in banksw i ten i ng . 
> 

> PROCEDURE BankJCalK Rddress : PTR { ! !r0 } ) 
PROCEDURE LookUp_Rom< Hi Rddress : BVTE { !r0 > 

> PROCEDURE Bank_Ret 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
FIN 

DO External 
.LSTON 
.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure : BankJCa 1 1 

> This procedure manages subroutine calls from one bank of 

> the controllers external program space to the other. If 

> one routine wants to call another routine in a different 

> memory bank it must do indirectly through this routine. 
> 

> Inputs: 

> Address : PTR { Mr2 } 

> Outputs: { none } 

> R I gor i thm : 
> 

> BEGIN 

> LookUp_Rom< Rddress DIU 256 ) 

> Goto §Rddress 

> END 
> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

. Page 

.FIN 



BankJCa 1 1 



Push Rp 

Ld !4rk_Sys2+$4,Rp ;save Rp for reference later 

Srp *UrkJ3ys2 

Add !r4,*2 ;get reg 2 in original Rp 

Ld !r0,§?!r4 ;get hibyte of called adr 

Cai I LookUpjRom 

Pop Rp 

Jp e»r2 

.LSTOFF 

.DO External 

.LSTON 



> 

> Procedure: LookUp_Rom 

> 

> 

> 



> 



This procedure is used to determine which of five 4k 
banks of program space the user wishes to execute within. 

Inputs: 

HighAddress : BVTE { !r-0 } 

Outputs: none 

fi I gor i thm : 

BEGIN 
CASE Highfiddress OF 



: fidr13 

1 : fldr13 

2 : Mr 13 

3 : Rdr13 

4 : fldr13 
OTHERWISE Abort 

END 



= 0, fldr-12 
= 0, fldr12 
= 0, fidr12 
= 1, Rdr12 
= 1, fldr12 



= 
= 
= 1 
= 
= 1 



.LSTOFF 

.FIN 

.DO Internal 

.LSTON 
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.FIN 



LookUp-ftom: Tm !rG,*$8Q ; check for adr out of ranqe 

Jr Hz,LU_Abort 

find !rO,*$7G ;mask off unnecessary stuff from address 

Cp !r0,*$40 

Jr Le,BC_1 



LU_fibort: 
BC_1 : 



RomTab I e : 



Call 

Ld 

Ld 

Swap 

FH 

fidd 

fide 

Ldc 

I new 

Ldc 

Ld 

Ld 

Lde 

Ld 

Ld 

Lde 

Ret 

.DB 
.DB 
.DB 
.DB 
.DB 



Abort 

!r2,*.HIBVTE. Rom_Tabie 

!r3>.L0MBVTE. Roi»_Table 

!r0 ;turn highaddress into index value 

IrO ;multiply index by 2 {2 byte/element table } 

!r3,!r0 ; index into table 

ir2>0 

!r1,§!!r2 ;get rom address values 

f !r2 

ir0,£!!r2 

!r2,*.HIBVTE. RoroBankO 

!r3,!r0 

§! !r2, !r3 ;set EpromBankO, 1 

!r2,*.HIBVTE. RomBank2 

!r3,!r1 

§!ir2, !r3 ;set EproroBank2,3 



0,0 ;fidr13 
0,0 ;fidr13 
0,1 ;Adr13 
1,0 ;fldr13 
\,1 ;Adr13 



0, fidr12 

0, Rdr12 

0, fldr12 

1, Adr12 
1, Adr12 



= 

= 

= 1 

= 

= 1 



.LSTOFF 

.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Bank_Ret 
> 

> This procedure is used as the return linkage when another 

> procedure wishes to return to a location that is not 

> in the same external program bank. 



Inputs: { none } 
Outputs: { none } 
A I gor i thm : 

BEGIN 
Address. Hi Byte := Stack [ StackPtr 1 
Address. LoByte := Stack! StackPtr - 1 1 
LookUp_Rom< Address DIU 256 ) 
Goto ©Address 

END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 



Bank_Ret: 



Push F I ags 

Push Rp 

Srp *UrkJSys2 

Ld ■ !r1,Spl ;get location of return adr 

Add !rt,*2 ; account for the 2 pushes at entry of routine 

Ld !rQ,§!r1 

Cat I LookUp-Rom 

Pop Rp 

Pop F I ags 
Ret 



LSTOFF 



